home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M200.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  5KB  |  185 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     Goto LABEL001
  30.     End
  31.     If (0 == 0) STRING001 = "NO"
  32.     If (0 == 1) STRING001 = "YES"
  33.  
  34.     EndFunc
  35.  
  36.     :LABEL001
  37.     STRING002 = String(PcbNode())
  38.     If (PcbNode() == 0) STRING002 = "A"
  39.     STRING004 = GetEnv(STRING002 + "RECNO")
  40.     STRING004 = ToInteger(STRING004)
  41.     STRING003 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  42.     DOpen 0, PPEPath() + "USER.DBF", 0
  43.     DGo 0, STRING004
  44.     DGet 0, "CASH", INTEGER001
  45.     Cls
  46.     PrintLn 
  47.     PrintLn "@X0E         As you walk through the gambling den, you're attracted to a table   @X0F"
  48.     PrintLn "@X0E currently seating five men - all of whom look quite shaken....              @X0F"
  49.     PrintLn 
  50.     PrintLn "@X0E         On closer inspection, you see that these maniacs are passing around @X0F"
  51.     PrintLn "@X0E a neural disruptor, holding it to their heads, and firing it.  On the first @X0F"
  52.     PrintLn "@X0E person, you hear a loud @X0CBEEP@X0E.  On the second, you hear the same beep - but  @X0F"
  53.     PrintLn "@X0E he drops the disruptor and slides to the floor.                             @X0F"
  54.     PrintLn 
  55.     PrintLn "@X0E         Being the cereberal giant that you are, you ask if that disruptor   @X0F"
  56.     PrintLn "@X0E is set to kill.  The house man tells you it's only set for a heavy stun,    @X0F"
  57.     PrintLn "@X0E it'll put you down for a day or two.  Thinking about that, you ask what the @X0F"
  58.     PrintLn "@X0E odds are.....                                                               @X0F"
  59.     PrintLn 
  60.     PrintLn "@X0B    It goes off one in four times, and pays five to one, replies the dealer. @X0E@X0F"
  61.     PrintLn 
  62.     PrintLn "@X0E         Throwing caution to the winds, (and a quick prayer to Lady Luck)    @X0F"
  63.     PrintLn "@X0E you sit at the table.                                                       @X0F"
  64.     PrintLn 
  65.     Call PPEPath() + "VRS-M19.PPE"
  66.     :LABEL002
  67.     Cls
  68.     Newlines 3
  69.     PrintLn "           @X02You have @X0E", INTEGER001, "@X02 credits...@X0F"
  70.     Newlines 2
  71.     PrintLn "                       @X02Zero @X0E(@X02@X0C0@X0E)@X02 to quit...@X0F"
  72.     Newlines 2
  73.     InputStr "@X0AHow many credits would you like to wager?@X0E> _", INTEGER002, 11, 10, Mask_Num(), 0
  74.     If (INTEGER002 == 0) Goto LABEL003
  75.     If (INTEGER002 > INTEGER001) Then
  76.         Backup 80
  77.         ClrEol
  78.         PrintLn "@X0CYou don't have that many credits!@X0F"
  79.         Delay (3 * 182) / 10
  80.         Goto LABEL002
  81.     Endif
  82.     INTEGER001 = INTEGER001 - INTEGER002
  83.     DPut 0, "CASH", INTEGER001
  84.     Cls
  85.     Newlines 2
  86.     PrintLn "@X0E         Sitting at the table, the man to your left picks up the disruptor...@X0F"
  87.     PrintLn "@X0E shakes a bit.... pulls the trigger.... and falls to the floor.  The dealer  @X0F"
  88.     PrintLn "@X0E comments that you just never know....                                       @X0F"
  89.     PrintLn 
  90.     PrintLn "@X0B         You pick up the disruptor and press it against your temple...       @X0F"
  91.     PrintLn 
  92.     Call PPEPath() + "VRS-M19.PPE"
  93.     PrintLn 
  94.     PrintLn "@X0B         Your finger slowly tightens on the trigger...                       @X0F@X0F"
  95.     PrintLn 
  96.     Call PPEPath() + "VRS-M19.PPE"
  97.     PrintLn 
  98.     INTEGER003 = Random(2)
  99.     If (INTEGER003 < 2) Then
  100.         PrintLn "@X0B         You hear a loud @X0CBEEP@X0B from the disruptor!  The dealer asks for your@X0F"
  101.         PrintLn "@X0B arm to transfer your winnings!                                            @X0F"
  102.         PrintLn 
  103.         INTEGER001 = INTEGER001 + INTEGER002 * 5
  104.         DPut 0, "CASH", INTEGER001
  105.         Call PPEPath() + "VRS-M19.PPE"
  106.         Goto LABEL002
  107.     Endif
  108.     Cls
  109.     Newlines 5
  110.     PrintLn "@X0C         Your ears ring, a tiny rising tone that makes you think of a  @X0F"
  111.     PrintLn "@X0C fletcher firing.  You pitch forward, your striated muscles slack, and @X0F"
  112.     PrintLn "@X0C bang the table with your forehead... you hit the floor, twisted, eyes @X0F"
  113.     PrintLn "@X0C out of focus, breath gone..........                                   @X0F"
  114.     Call PPEPath() + "VRS-M19.PPE"
  115.     DPut 0, "VITALITY", "N"
  116.     :LABEL003
  117.     DCloseAll
  118.     End
  119.  
  120. ;------------------------------------------------------------------------------
  121. ;
  122. ; Usage report (before postprocessing)
  123. ;
  124. ; ■ Statements used :
  125. ;
  126. ;    2       End
  127. ;    4       Cls
  128. ;    1       ClrEol
  129. ;    7       Goto 
  130. ;    10      Let 
  131. ;    39      PrintLn 
  132. ;    6       If 
  133. ;    1       InputStr 
  134. ;    1       Delay 
  135. ;    5       Newlines 
  136. ;    5       Call 
  137. ;    1       Backup 
  138. ;    1       EndFunc
  139. ;    1       DOpen 
  140. ;    1       DCloseAll
  141. ;    1       DGo 
  142. ;    1       DGet 
  143. ;    3       DPut 
  144. ;
  145. ;
  146. ; ■ Functions used :
  147. ;
  148. ;    2       *
  149. ;    1       /
  150. ;    8       +
  151. ;    1       -
  152. ;    4       ==
  153. ;    1       <
  154. ;    1       >
  155. ;    2       !
  156. ;    1       Random()
  157. ;    1       String()
  158. ;    1       Mask_Num()
  159. ;    6       PPEPath()
  160. ;    2       PcbNode()
  161. ;    1       GetEnv()
  162. ;    1       ToInteger()
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Analysis flags : C
  167. ;
  168. ; C - Call child PPE ■ 3
  169. ;     This is usually normal, but may be a tricky way to launch some
  170. ;     sysop-only commands.
  171. ;     ■ Search for : CALL
  172. ;
  173. ;------------------------------------------------------------------------------
  174. ;
  175. ; Postprocessing report
  176. ;
  177. ;    0       For/Next
  178. ;    0       While/EndWhile
  179. ;    2       If/Then or If/Then/Else
  180. ;    0       Select Case
  181. ;
  182. ;------------------------------------------------------------------------------
  183. ;                 AEGiS Corp - Break the routines, code against the machines!
  184. ;------------------------------------------------------------------------------
  185.